home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / ms-dos_h < prev    next >
Text File  |  1992-02-23  |  4KB  |  118 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** msdos/ms-dos.h.old    Sun Feb 23 08:48:16 1992
  14. --- msdos/ms-dos.h    Thu Nov 14 08:56:36 1991
  15. ***************
  16. *** 0 ****
  17. --- 1,100 ----
  18. + /* $Header: c:/usr/lbr/perl/RCS/ms-dos.h 1.1 90/10/15 15:18:53 lbr Exp $
  19. +  *
  20. +  *    (C) Copyright 1988, 1990 Diomidis Spinellis.
  21. +  *    (C) Copyright 1990 Leonard Reed.
  22. +  *
  23. +  *    You may distribute under the terms of the GNU General Public License
  24. +  *    as specified in the README file that comes with the perl 3.0 kit.
  25. +  *
  26. +  * $Log:    ms-dos.h $
  27. +  * Revision 1.1  90/10/15  15:18:53  lbr
  28. +  * Initial revision
  29. +  * 
  30. +  */
  31. + 
  32. + #ifndef MK_FP
  33. +     /* Macro to make a far pointer from segment, offset */
  34. + # define MK_FP(seg,ofs) \
  35. +     ((void far *) (((unsigned long)(seg) << 16) | (unsigned)(ofs)))
  36. + #endif
  37. + 
  38. + enum action {
  39. +     han_delete,     /* delete the (handle) file */
  40. +     fdelete,         /* delete the (stream) file */
  41. +     execute,        /* execute the command, file open as (FILE *) */
  42. +     swap_file        /* swap file (handle open) */
  43. + };
  44. + 
  45. + typedef union {    /* handle or stream pointer */
  46. +     FILE *f;
  47. +     int h;
  48. + } HFD;
  49. + 
  50. + struct todo {
  51. +     HFD hfd;            /* handle or stream pointer */
  52. +     char *name;            /* Name of the file (to unlink) */
  53. +     const char *command;    /* Command to execute */
  54. +     enum action what;        /* What to do */
  55. +     int child_status;        /* "wait" value of child: used only
  56. +                        for pipes read by parent
  57. +                 */
  58. +     struct todo *next;        /* Next structure */
  59. + };
  60. + 
  61. + struct todo *add_temp_file(FILE *, int, char *, char *, enum action , int);
  62. + void block_signals(void);
  63. + void unblock_signals(void);
  64. + void msdos_sig_death(int);
  65. + int swap_spawn(int, char *, char **);
  66. + int exec( int, char far *, char far *, int, int);
  67. + void cleanup_msdos_temps(void);
  68. + 
  69. + /* Structure of MS-DOS system file table entry.  Sure is silly that we
  70. +    have to play with this.  The pack pragma is because the words in
  71. +    this table are not even word aligned!  (The guys who "designed"
  72. +    this stuff never looked beyond the 8088.)
  73. + 
  74. +    Refer to Waite Group's MS-DOS Developer Guide, 2nd. edition, pp. 212-213,
  75. +    for infor about this structure.
  76. + */
  77. + 
  78. + #pragma pack(1)
  79. + struct sft {
  80. +     unsigned int ref_count;    /* number of references */
  81. +     unsigned int open_mode;
  82. +     unsigned char dattrib;
  83. +     unsigned int flags;        /* flags including DOS_SFT_NOINHERIT */
  84. +     unsigned long dbb;
  85. +     unsigned int init_cluster;
  86. +     unsigned int time;
  87. +     unsigned int date;
  88. +     unsigned long file_size;
  89. +     unsigned long file_offset;
  90. +     unsigned int relative_cluster;
  91. +     unsigned int current_cluster;
  92. +     unsigned int block_number;
  93. +     unsigned char dir_index;
  94. +     char file_name[8];
  95. +     char file_ext[3];
  96. +     char unknown[4];
  97. +     unsigned int mach_owner;
  98. +     unsigned int psp_owner;
  99. +     unsigned int status;
  100. +     char only_in_40[6];        /* unknown, only found in DOS 4.0+ */
  101. + };
  102. + #pragma pack()
  103. + 
  104. +     /* Convert handle to MS-DOS system file table entry pointer */
  105. + struct sft far * dos_sys_file(int);
  106. + 
  107. + #define DOS_SFT_NOINHERIT 0x1000    /* flags mask for noinherit by child */
  108. + 
  109. + int dos_get_nofiles(void);
  110. + unsigned char far * dos_get_sft_map(void);
  111. + 
  112. +     /* Call dos directly, bypassing the C library "intelligence." */
  113. + int dos_close(int);
  114. + int dos_dup(int);
  115. + int dos_dup2(int, int);
  116. + 
  117. + #define KSH_META_CHARS "*\"?<>|()&][$#`'\\"    /* Korn shell metachars */
  118.